home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Remote / menus.mrc < prev    next >
Encoding:
Text File  |  1998-05-14  |  10.4 KB  |  187 lines
  1. ;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
  2. ;Configure at your own risk
  3. ;Custom popups (menu) file
  4.  
  5. menu @add-ons {
  6.   sclick {
  7.     if ($inrect($mouse.x,$mouse.y,7,57,80,30) == $true) { drawx2 7 57 80 30 @add-ons | .timerm2 -m 1 200 drawx 7 57 80 30 @add-ons nofill | addonlst }
  8.     if ($inrect($mouse.x,$mouse.y,7,94,80,30) == $true) { drawx2 7 94 80 30 @add-ons | .timerm3 -m 1 200 drawx 7 94 80 30 @add-ons nofill | addonl $remove($gettok($sline(@addon.status,1),1,32),.) }
  9.     if ($inrect($mouse.x,$mouse.y,7,131,80,30) == $true) { drawx2 7 131 80 30 @add-ons | .timerm4 -m 1 200 drawx 7 131 80 30 @add-ons nofill | addonu $remove($gettok($sline(@addon.status,1),1,32),.) }
  10.     if ($inrect($mouse.x,$mouse.y,7,168,80,30) == $true) { drawx2 7 168 80 30 @add-ons | .timerm5 -m 1 200 drawx 7 168 80 30 @add-ons nofill | addoninfo $remove($gettok($sline(@addon.status,1),1,32),.) }
  11.     if ($inrect($mouse.x,$mouse.y,499,2,15,14) == $true) { drawx2 499 2 15 14 @add-ons | .timermc2 -m 1 200 winclose @add-ons @addon.status | halt }
  12.     if ($inrect($mouse.x,$mouse.y,465,2,15,14) == $true) { window -h @addon.status | drawx2 465 2 15 14 @add-ons | .timercl -m 1 200 window -n @add-ons | .timerc2 -m 1 200 drawx 465 2 15 14 @add-ons nx | halt }
  13.     window -r @addon.status | window -a @addon.status
  14.   }
  15.   dclick {
  16.     window -r @addon.status | window -a @addon.status
  17.   }
  18. }
  19. menu @c-script {
  20.   sclick .timerc off | ccls
  21. }
  22. menu @motd {
  23.   dclick window -c @ $+ $server
  24.   %dp.56
  25.   .$motds(1):set %motds normal | popchng on 56
  26.   .$motds(2):set %motds window | popchng on 56
  27.   .$motds(3):set %motds changew | popchng on 56
  28.   .$motds(4):set %motds changes | popchng on 56
  29.   .-
  30.   .$motds(5):set %motds hide | popchng off 56
  31. }
  32. menu @yn {
  33.   sclick:if ($inrect($mouse.x,$mouse.y,219,2,15,14) == $true) { drawx2 219 2 15 14 @yn | .timercl -m 1 200 window -c @yn } | elseif ($inrect($mouse.x,$mouse.y,130,50,37,17) == $true) { drawx2 130 50 $calc($width(yes,arial,20,0,0) + 2) 17 @yn | if (%yn.no == close) { .timercl -m 1 200 window -c @yn } | else { .timercl -m 1 200 window -c @yn | .timeryn -m 1 300 %yn.no } } | elseif ($inrect($mouse.x,$mouse.y,85,50,37,17) == $true) { drawx2 85 50 $calc($width(yes,arial,20,0,0) + 2) 17 @yn | .timercl -m 1 200 window -c @yn | .timeryn -m 1 300 %yn.yes }
  34. }
  35. menu @Auto-join {
  36.   dclick if ($left($sline(@auto-join,1),1) != $chr(35)) { echo -a  $+ $clr(info) $+ *** Not a valid choice. Please Chose a channel not a line with information | halt } | else { ajoin -d $sline(@auto-join,1) | dline @auto-join $sline(@auto-join,1).ln }
  37.   Delete:if ($left($sline(@auto-join,1),1) != $chr(35)) { echo -a  $+ $clr(info) $+ *** Not a valid choice. Please Chose a channel not a line with information | halt } | else { ajoin -d $sline(@auto-join,1)  | dline @auto-join $sline(@auto-join,1).ln }
  38.   Add:ajoin -a #$$?="Enter channel name:" | aline @Auto-Join $!
  39. }
  40. menu @SoundSys {
  41.   dclick if ($sline(@SoundSys,1).ln == 1) ssplay | else ssadd
  42.   Select: if ($sline(@SoundSys,1).ln == 1) ssplay | else ssadd
  43. }
  44. menu @CussWord-List {
  45.   dclick window -c @CussWord-List
  46.   Del Word: if ($sline(@CussWord-List,1).ln == 1 || $sline(@CussWord-List,1) == $null) { halt } | else { cusswords -r $strip($sline(@CussWord-List,1)) }
  47.   Add Word:cusswords -a $$?="Word/Phrase to add:"
  48. }
  49. menu @C-ScriptáSetup {
  50.   dclick { set %winver $gettok($sline(@C-ScriptáSetup,1),1,32) | .timerDAOH off | window -c @C-ScriptáSetup | .timer 1 1 start5 }
  51.   Select: { set %winver $gettok($sline(@C-ScriptáSetup,1),1,32) | .timerDAOH off | window -c @C-ScriptáSetup | .timer 1 1 start5 }
  52. }
  53. menu @ScriptáInformation {
  54.   dclick .window -c @ScriptáInformation
  55.   Close:.window -c @ScriptáInformation
  56.   Addons...:addons
  57. }
  58. menu @AddonInfo {
  59.   dclick .window -c @AddonInfo
  60.   Close:.window -c @AddonInfo
  61. }
  62. menu @Help {
  63.   sclick if ($inrect($mouse.x,$mouse.y,1,1,94,23)) { window -c @help | help contents } | if ($inrect($mouse.x,$mouse.y,11,54,117,27)) { window -c @help | chelp }
  64.   dclick if ($inrect(1,1,94,23)) { help contents | window -c @help } | if ($inrect(11,54,117,27)) { chelp | window -c @help }
  65. }
  66. menu @C-ScriptáCloneáDetection {
  67.   dclick clnbk %clnschn $gettok($sline(%csclnsd,1),1,160)
  68.   Kick Clones:clnkick %clnschn $gettok($sline(%csclnsd,1),1,160)
  69.   Kick/Ban Clones:clnbk %clnschn $gettok($sline(%csclnsd,1),1,160)
  70.   -
  71.   Display to Channel:msg %clnschn Clone Detection: $sline(%csclnsd,1)
  72.   Display to Ops:onotice %clnschn Clone Detection: $sline(%csclnsd,1)
  73.   Warn Clones {
  74.     msg $gettok($gettok($sline(%csclnsd,1),1,160),1,32) Please remove your clone(s) from %clnschn or you and your clones may be kicked and/or banned.
  75.   }
  76. }
  77. menu @C-ScriptáStatus {
  78.   mouse window -a %csstsw | window -a @Settings | window -a @Protection
  79.   dclick { window -c %csstsw | window -c @Settings | window -c @Protection }
  80.   Close Status Windows: { window -c %csstsw | window -c @Settings | window -c @Protection }
  81. }
  82. menu @Settings {
  83.   dclick { window -c %csstsw | window -c @Settings | window -c @Protection }
  84.   Close Status Windows: { window -c %csstsw | window -c @Settings | window -c @Protection }
  85. }
  86. menu @Protection {
  87.   dclick { window -c %csstsw | window -c @Settings | window -c @Protection }
  88.   Close Status Windows: { window -c %csstsw | window -c @Settings | window -c @Protection }
  89. }
  90. menu @NickCompleteáSetup {
  91.   dclick nctp
  92.   Select:nctp
  93. }
  94. menu @PANIC {
  95.   dclick panic-chk
  96.   Select:panic-chk
  97. }
  98. menu @NickComplete {
  99.   dclick ncsln
  100.   Select:ncsln
  101. }
  102. menu @NickáComplete {
  103.   dclick ncs2ln
  104.   Select:ncs2ln
  105. }
  106. menu @MsgLogáMessages: {
  107.   Close:msglogw -c
  108. }
  109. menu @C-ScriptáLinksáList {
  110.   dclick lnkscon
  111.   Motd: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { motd $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { motd $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  112.   Admin: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { admin $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { admin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  113.   Stats: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { stats $$?="Type?" $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { stats $$?="Type?" $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  114.   Raw...: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { stats $$?="Command?" $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { raw $$?="Type?" $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  115.   -
  116.   IRCops: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { ircops $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { ircops $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  117.   PortScan: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { portscan $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { portscan $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  118.   ServerScan: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { sscan $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { sscan $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  119.   CloneScan: if ($chr(40) isin $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91))) { cscan $remove($remove($gettok($sline(%cslinks,1),1,32),$chr(93)),$chr(91)) } | else { cscan $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) }
  120.   -
  121.   Connect to Server: {
  122.     if ($chr(91) isin $gettok($sline(%cslinks,1),2,32)) { server $remove($remove($gettok($sline(%cslinks,1),2,32),$chr(93)),$chr(91)) 6667 | goto done }
  123.     if ($chr(91) isin $gettok($sline(%cslinks,1),3,32)) { server $remove($remove($gettok($sline(%cslinks,1),3,32),$chr(93)),$chr(91)) 6667 | goto done }
  124.     if ($chr(91) isin $gettok($sline(%cslinks,1),4,32)) { server $remove($remove($gettok($sline(%cslinks,1),4,32),$chr(93)),$chr(91)) 6667 | goto done }
  125.     if ($chr(46) isin $gettok($sline(%cslinks,1),2,32)) { server $gettok($sline(%cslinks,1),2,32) 6667 | goto done }
  126.     else { echo -a  $+ $clr(info) $+ *** Unable to resolve DNS for $gettok($sline(%cslinks,1),1,32) | goto done }
  127.     :done
  128.   }
  129. }
  130. menu @IncomingáSNotices: {
  131.   dclick lusers
  132.   Clear:clear %cssnot
  133.   -
  134.   Disable:set %snoticebox Off | insnotwin -c | .disable #SNOTICE | if ($server != $null) { umode -s } | popchng off 7
  135. }
  136. menu @IncomingáCTCPs: {
  137.   Clear:clear %csctcp
  138.   -
  139.   Disable:set %ctcpbox Off | inctcpwin -c | popchng off 6
  140. }
  141. menu @WallOps {
  142.   dclick wallopsbox -c
  143.   Clear:clear
  144.   Close:wallopsbox -c
  145.   -
  146.   Disable:set %wallopsbox off | wallopsbox -c
  147. }
  148.  
  149.  
  150. ;==========
  151. ;Ad windows
  152. ;WARNING: Tampering with, or removing these may cause C-Script to not work properly!
  153. ;==========
  154.  
  155.  
  156. menu @AdClicks {
  157.   sclick {
  158.     if ($inrect($mouse.x,$mouse.y,12,4,80,35) == $true) {
  159.       drawx2 12 4 80 35 @adclicks
  160.       if (%ad.link == ad) { chelp advertise }
  161.       if (%winver == Windows_95/98/NT) { run %ad.link }
  162.       else {
  163.         if ($exists(%browserdir) != $true) { echo -a  $+ $clr(info2) $+ *** Please point your web browser to %ad.link }
  164.         else run %browserdir %ad.link
  165.       }
  166.       .timercl -m 1 200 closewin @Ad @AdInfo @AdClicks
  167.     }
  168.     elseif ($inrect($mouse.x,$mouse.y,107,4,80,35) == $true) { drawx2 107 4 80 35 @adclicks | chelp advertise | .timercl -m 1 200 closewin @Ad @AdInfo @AdClicks }
  169.     elseif ($inrect($mouse.x,$mouse.y,199,4,80,35) == $true) { drawx2 199 4 80 35 @adclicks | chelp register | .timercl -m 1 200 closewin @Ad @AdInfo @AdClicks }
  170.     elseif ($inrect($mouse.x,$mouse.y,312,4,80,35) == $true) { if (%adwin.no == $null) { drawx2 312 4 80 35 @adclicks | .timercl -m 1 200 closewin @Ad @AdInfo @AdClicks } }
  171.   }
  172. }
  173. menu @Ad {
  174.   sclick {
  175.     if ($inrect($mouse.x,$mouse.y,50,3,300,40) == $true) {
  176.       drawx2 50 3 300 40 @ad
  177.       .timercl -m 1 200 closewin @Ad @AdInfo @AdClicks
  178.       if (%ad.link == ad) { chelp advertise }
  179.       if (%winver == Windows_95/98/NT) { run %ad.link }
  180.       else {
  181.         if ($exists(%browserdir) != $true) { echo -a  $+ $clr(info2) $+ *** Please point your web browser to %ad.link }
  182.         else run %browserdir %ad.link
  183.       }
  184.     }
  185.   }
  186. }
  187.